home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 3-Pak - Disc 2
/
Infomagic - Windows 3-Pak (Disc 2 of 3).iso
/
Network-Tools
/
icb.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1999-09-07
|
66KB
|
2,384 lines
object Form1: TForm1
Left = 265
Top = 240
Width = 263
Height = 527
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'ICB'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label11: TLabel
Left = 69
Top = 7
Width = 130
Height = 16
Caption = 'Remote server setup'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel6: TBevel
Left = 21
Top = 32
Width = 230
Height = 177
Style = bsRaised
end
object PageControl1: TPageControl
Left = -3
Top = 0
Width = 257
Height = 481
Cursor = crHandPoint
ActivePage = TabSheet1
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
HotTrack = True
MultiLine = True
ParentFont = False
TabOrder = 1
TabPosition = tpRight
OnChange = PageControl1Change
OnMouseMove = PageControl1MouseMove
object TabSheet1: TTabSheet
Caption = 'Analysis'
object Image3: TImage
Left = 25
Top = 54
Width = 181
Height = 178
Hint = 'Click me twice for ICB "hall of fame" WWW page!'
AutoSize = True
ParentShowHint = False
Picture.Data = {<image001.jpg>}
ShowHint = True
OnDblClick = BitBtn6Click
end
object Image4: TImage
Left = 22
Top = 223
Width = 77
Height = 79
AutoSize = True
Picture.Data = {<image002.jpg>}
end
object ActualCompass: TCompass
Left = 40
Top = 249
Width = 48
Height = 48
Heading = 0
NeedleLength = 17
NeedleWidth = 2
Color = clMaroon
Size = 48
OuterCircleWidth = 1
CenterCircleWidth = 12
CenterCircleColor = clGreen
NeedleColor = clYellow
end
object Image5: TImage
Left = 127
Top = 223
Width = 77
Height = 79
AutoSize = True
Picture.Data = {<image003.jpg>}
end
object ActualBar: TIndicator
Left = 69
Top = 126
Width = 23
Height = 55
Position = 0
Background = clBlack
Foreground = clYellow
end
object ICBBar: TIndicator
Left = 105
Top = 117
Width = 23
Height = 61
Position = 0
Background = clBlack
Foreground = 4259584
end
object ICBLabel: TLabel
Left = 96
Top = 186
Width = 42
Height = 10
Hint = 'Click me twice for ICB "hall of fame" WWW page!'
Alignment = taCenter
AutoSize = False
Caption = '00000'
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clLime
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentColor = False
ParentFont = False
ParentShowHint = False
ShowHint = True
OnDblClick = Button6Click
end
object AvrgBar: TIndicator
Left = 139
Top = 126
Width = 23
Height = 55
Position = 0
Background = clBlack
Foreground = 33023
end
object AvrgCompass: TCompass
Left = 144
Top = 249
Width = 48
Height = 48
Heading = 0
NeedleLength = 17
NeedleWidth = 2
Color = clMaroon
Size = 48
OuterCircleWidth = 1
CenterCircleWidth = 12
CenterCircleColor = clGreen
NeedleColor = 33023
end
object Image12: TImage
Left = 207
Top = 0
Width = 24
Height = 448
OnMouseMove = Image12MouseMove
end
object comp1scaled_pic: TImage
Left = 55
Top = 266
Width = 16
Height = 15
Picture.Data = {<image004.bmp>}
Stretch = True
Transparent = True
Visible = False
end
object comp2scaled_pic: TImage
Left = 159
Top = 266
Width = 16
Height = 15
Picture.Data = {<image005.bmp>}
Stretch = True
Transparent = True
Visible = False
end
object Connection_Label: TLabel
Left = 42
Top = 57
Width = 147
Height = 13
Alignment = taCenter
AutoSize = False
Caption = '128 Kb./dual ISDN'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object actual_label: TLabel
Left = 70
Top = 106
Width = 22
Height = 11
Alignment = taCenter
AutoSize = False
Caption = '0%'
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentColor = False
ParentFont = False
end
object avrg_label: TLabel
Left = 139
Top = 106
Width = 22
Height = 11
Alignment = taCenter
AutoSize = False
Caption = '0%'
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label24: TLabel
Left = 101
Top = 306
Width = 21
Height = 11
Caption = 'Kb/s.'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentFont = False
end
object Label25: TLabel
Left = 206
Top = 305
Width = 21
Height = 11
Caption = 'Kb/s.'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentFont = False
end
object Actualscaled_pic: TImage
Left = 70
Top = 142
Width = 20
Height = 20
AutoSize = True
Picture.Data = {<image006.bmp>}
Transparent = True
Visible = False
end
object ICBScaled_pic: TImage
Left = 106
Top = 137
Width = 20
Height = 20
AutoSize = True
Picture.Data = {<image007.bmp>}
Transparent = True
Visible = False
end
object Avrgscaled_pic: TImage
Left = 140
Top = 142
Width = 20
Height = 20
AutoSize = True
Picture.Data = {<image008.bmp>}
Transparent = True
Visible = False
end
object Label26: TLabel
Left = 91
Top = 171
Width = 8
Height = 13
Caption = '%'
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label27: TLabel
Left = 131
Top = 171
Width = 8
Height = 13
Caption = '%'
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = 33023
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Image21: TImage
Left = 80
Top = -2
Width = 70
Height = 59
AutoSize = True
Picture.Data = {<image009.jpg>}
end
object StartButton: TBitBtn
Left = 24
Top = 335
Width = 77
Height = 24
Caption = 'Start'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = StartButtonClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
55555555577777555555555705BBB55505555555F5777555F555557B5555055B
505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
5B5557555557F55557555555555B555555555555555755555555}
NumGlyphs = 2
end
object Panel1: TPanel
Left = 4
Top = 366
Width = 220
Height = 100
Caption = 'Panel1'
TabOrder = 1
object Scope1: TScope
Left = 4
Top = 4
Width = 214
Height = 73
Baseline = 100
Gridsize = 8
Active = False
Position = 0
Interval = 240
Color = clBlack
Gridcolor = clGreen
Linecolor = clLime
Basecolor = clRed
end
object Label17: TLabel
Left = 29
Top = 82
Width = 153
Height = 13
Caption = 'Analysis interval: sec.'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object interval_label: TLabel
Left = 129
Top = 83
Width = 27
Height = 13
Alignment = taRightJustify
AutoSize = False
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Button4: TButton
Left = 187
Top = 82
Width = 13
Height = 15
Caption = '-'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button4Click
end
object Button5: TButton
Left = 6
Top = 7
Width = 13
Height = 15
Caption = 'O'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button5Click
end
object Button6: TButton
Left = 204
Top = 82
Width = 13
Height = 15
Caption = '+'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button6Click
end
end
object Panel2: TPanel
Left = 24
Top = 299
Width = 76
Height = 24
BevelInner = bvLowered
Color = clGreen
TabOrder = 2
object ActualLCD: TLcdDisplay
Left = 2
Top = 2
Width = 50
Height = 20
NumDigits = 5
DigitHeight = 17
DigitWidth = 10
DigitLineWidth = 3
LightOnColor = clYellow
end
object ActualLCDT: TLcdDisplay
Left = 53
Top = 2
Width = 20
Height = 20
NumDigits = 2
DigitHeight = 17
DigitWidth = 10
DigitLineWidth = 3
end
object Label1: TLabel
Left = 50
Top = 4
Width = 6
Height = 20
Caption = '.'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
end
object Panel3: TPanel
Left = 129
Top = 299
Width = 76
Height = 24
BevelInner = bvLowered
Caption = 'Panel3'
Color = clGreen
TabOrder = 3
object AvrgLCD: TLcdDisplay
Left = 2
Top = 2
Width = 50
Height = 20
NumDigits = 5
DigitHeight = 17
DigitWidth = 10
DigitLineWidth = 3
LightOnColor = clYellow
end
object avrgLCDT: TLcdDisplay
Left = 53
Top = 2
Width = 20
Height = 20
NumDigits = 2
DigitHeight = 17
DigitWidth = 10
DigitLineWidth = 3
end
object Label7: TLabel
Left = 50
Top = 4
Width = 6
Height = 20
Caption = '.'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
end
object BitBtn2: TBitBtn
Left = 129
Top = 335
Width = 77
Height = 24
Caption = 'Reset'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF33339993707399933333773337F3777FF3399933000339
9933377333777F3377F3399333707333993337733337333337FF993333333333
399377F33333F333377F993333303333399377F33337FF333373993333707333
333377F333777F333333993333101333333377F333777F3FFFFF993333000399
999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
99933773FF777F3F777F339993707399999333773F373F77777F333999999999
3393333777333777337333333999993333333333377777333333}
NumGlyphs = 2
end
object Button8: TButton
Left = 206
Top = 0
Width = 21
Height = 17
Caption = '>>'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button8Click
end
end
object TabSheet2: TTabSheet
Caption = 'Connection'
ImageIndex = 1
object Label3: TLabel
Left = 23
Top = 120
Width = 60
Height = 13
Caption = 'Connection: '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 23
Top = 164
Width = 34
Height = 13
Caption = 'Server:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 26
Top = 234
Width = 49
Height = 13
Caption = 'My server:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 41
Top = 58
Width = 157
Height = 13
Caption = 'Connection type and region'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Image6: TImage
Left = 80
Top = -2
Width = 70
Height = 59
AutoSize = True
Picture.Data = {<image010.jpg>}
end
object Image13: TImage
Left = 203
Top = -1
Width = 32
Height = 448
OnMouseMove = Image12MouseMove
end
object Bevel3: TBevel
Left = 15
Top = 109
Width = 9
Height = 194
Shape = bsLeftLine
end
object ConnectionList: TComboBox
Left = 82
Top = 118
Width = 131
Height = 21
Hint = 'Your maximum connection speed'
DropDownCount = 20
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 0
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
Text = ' - SELECT -'
OnChange = ConnectionListChange
end
object LocList: TComboBox
Left = 81
Top = 162
Width = 131
Height = 21
Hint = 'An internet server of your choice'
DropDownCount = 20
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 0
Items.Strings = (
' STANDARD SERVER'
'www.bellsouth.net'
'www.earthlink.net'
'www.euroseek.com'
'www.infoseek.com'
'www.panasonic.com'
'www.panix.com'
'www.philips.com'
'www.sony.com'
'www.starwars.com'
'www.symantec.com'
'www.uunet.com'
'www.wired.com'
'www.yahoo.com')
ParentFont = False
ParentShowHint = False
ShowHint = True
Sorted = True
TabOrder = 1
Text = ' STANDARD SERVER'
OnChange = LocListChange
end
object LocalHost: TEdit
Left = 28
Top = 250
Width = 182
Height = 19
AutoSize = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object Button9: TButton
Left = 206
Top = 0
Width = 21
Height = 17
Caption = '>>'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = Button8Click
end
object addserverbut: TButton
Left = 42
Top = 274
Width = 152
Height = 18
Caption = 'Check and Add to server-list'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = addserverbutClick
end
object Memo2: TMemo
Left = 6
Top = 320
Width = 212
Height = 119
BorderStyle = bsNone
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Lines.Strings = (
'Select your (modem/LAN-) connection speed and a '
'server of your choice. Selecting the Standard Server '
'or one of the preset servers such as '
'www.yahoo.com, www.infoseek.com and '
'www.wired.com will give a good impression of '
'general internet speed. Enter your own server '
'address and add it to the server-list for specific '
'analysis (not available in shareware version). ')
ParentFont = False
TabOrder = 5
end
object removeserverbut: TButton
Left = 80
Top = 189
Width = 131
Height = 18
Caption = 'Remove from list'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = removeserverbutClick
end
end
object TabSheet3: TTabSheet
Caption = 'Check'
ImageIndex = 2
object Label6: TLabel
Left = 4
Top = 56
Width = 221
Height = 13
Caption = 'Check/analyse a server of your choice'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Image14: TImage
Left = 207
Top = -1
Width = 27
Height = 448
OnMouseMove = Image12MouseMove
end
object Label16: TLabel
Left = 3
Top = 97
Width = 223
Height = 13
Alignment = taCenter
Caption = 'Click in address field to stop analysing.'
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label29: TLabel
Left = 161
Top = 160
Width = 26
Height = 13
Caption = 'Kb/s.'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label30: TLabel
Left = 161
Top = 200
Width = 26
Height = 13
Caption = 'Kb/s.'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label31: TLabel
Left = 44
Top = 160
Width = 30
Height = 13
Caption = 'Actual'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label32: TLabel
Left = 34
Top = 199
Width = 40
Height = 13
Caption = 'Average'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image2: TImage
Left = 80
Top = -2
Width = 70
Height = 59
AutoSize = True
Picture.Data = {<image011.jpg>}
end
object BitBtn1: TBitBtn
Left = 75
Top = 253
Width = 80
Height = 22
Caption = 'Analyse'
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
0333337733F733F77F33370980FFF08907333373373F373373F33099FFFFFFF9
903337F3F373F33FF7F33090F000FF00903337F73337F37737F3B099FFF0FFF9
90B3373F33F7F3F33733070980F0F0890703337FF737F7337F33BB0098F0F890
0BB33F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
77037F3377777773337F088887707888870373F3337773F33373B078800B0088
70B3373FF733373FF73303700BBBBB007303337773F3F3777F33330BB0B0B0BB
033333733737F73F73F330BB03B0B30BB0333733733733733733}
NumGlyphs = 2
end
object myserver: TEdit
Left = 7
Top = 127
Width = 213
Height = 19
Hint = 'Server name or IP address of your choice'
AutoSize = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
Text = ' your server address here'
OnClick = myserverClick
end
object Button10: TButton
Left = 206
Top = 0
Width = 21
Height = 17
Caption = '>>'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button8Click
end
object Memo3: TMemo
Left = 8
Top = 325
Width = 212
Height = 119
BorderStyle = bsNone
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Lines.Strings = (
'This ICB function offers quick parallel analysis of a '
'server of your choice '
'(not available in shareware version). ')
ParentFont = False
TabOrder = 3
end
object Panel4: TPanel
Left = 80
Top = 155
Width = 76
Height = 24
BevelInner = bvLowered
Caption = 'Panel4'
Color = clGreen
TabOrder = 4
object LcdDisplay1: TLcdDisplay
Left = 2
Top = 2
Width = 50
Height = 20
NumDigits = 5
DigitHeight = 17
DigitWidth = 10
DigitLineWidth = 3
LightOnColor = clYellow
end
object LcdDisplay2: TLcdDisplay
Left = 53
Top = 2
Width = 20
Height = 20
NumDigits = 2
DigitHeight = 17
DigitWidth = 10
DigitLineWidth = 3
end
object Label15: TLabel
Left = 50
Top = 4
Width = 6
Height = 20
Caption = '.'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
end
object Panel5: TPanel
Left = 80
Top = 195
Width = 76
Height = 24
BevelInner = bvLowered
Caption = 'Panel5'
Color = clGreen
TabOrder = 5
object LcdDisplay3: TLcdDisplay
Left = 2
Top = 2
Width = 50
Height = 20
NumDigits = 5
DigitHeight = 17
DigitWidth = 10
DigitLineWidth = 3
LightOnColor = clYellow
end
object LcdDisplay4: TLcdDisplay
Left = 53
Top = 2
Width = 20
Height = 20
NumDigits = 2
DigitHeight = 17
DigitWidth = 10
DigitLineWidth = 3
end
object Label28: TLabel
Left = 50
Top = 4
Width = 6
Height = 20
Caption = '.'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
end
end
object TabSheet4: TTabSheet
Caption = 'Remote'
ImageIndex = 3
object Label8: TLabel
Left = 60
Top = 55
Width = 118
Height = 13
Caption = 'Remote server setup'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 68
Top = 152
Width = 92
Height = 13
Caption = 'Bind to IP address: '
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 81
Top = 168
Width = 67
Height = 13
Caption = '(0.0.0.0 for all)'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image15: TImage
Left = 205
Top = -1
Width = 29
Height = 448
OnMouseMove = Image12MouseMove
end
object Bevel2: TBevel
Left = 25
Top = 112
Width = 9
Height = 209
Shape = bsLeftLine
end
object Label42: TLabel
Left = 27
Top = 439
Width = 173
Height = 13
Caption = 'Up to 255 clients can connect to the'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label43: TLabel
Left = 18
Top = 453
Width = 192
Height = 13
Caption = 'remote control server in this PRO version'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image7: TImage
Left = 80
Top = -2
Width = 70
Height = 59
AutoSize = True
Picture.Data = {<image012.jpg>}
end
object ServerAutoStart: TCheckBox
Left = 33
Top = 121
Width = 164
Height = 17
Hint = 'Switch Remote Control Server on / off'
Caption = 'Enable Remote Control Server'
Checked = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 0
end
object serverip: TEdit
Left = 67
Top = 189
Width = 95
Height = 21
Hint = 'Change to your machine'#39's internet IP address'
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
Text = '0.0.0.0'
end
object Button1: TButton
Left = 77
Top = 216
Width = 75
Height = 25
Caption = '(Re-)Start'
TabOrder = 2
OnClick = Button1Click
end
object Button11: TButton
Left = 206
Top = 0
Width = 21
Height = 17
Caption = '>>'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = Button8Click
end
object Memo4: TMemo
Left = 10
Top = 325
Width = 212
Height = 113
BorderStyle = bsNone
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Lines.Strings = (
'You can control ICB remotely by using the Telnet '
'protocol. The server listens to port 2002 on the '
'address you supply. Standard, the server is set to '
'listen on all IP addresses.'
'(not available in shareware version). ')
ParentFont = False
TabOrder = 4
end
end
object TabSheet5: TTabSheet
Caption = 'System'
ImageIndex = 4
object Image16: TImage
Left = 205
Top = -1
Width = 29
Height = 448
OnMouseMove = Image12MouseMove
end
object Bevel1: TBevel
Left = 25
Top = 112
Width = 9
Height = 193
Shape = bsLeftLine
end
object Label18: TLabel
Left = 53
Top = 55
Width = 135
Height = 13
Caption = 'General system settings'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 40
Top = 199
Width = 79
Height = 13
Caption = 'Analysis Interval:'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 159
Top = 199
Width = 20
Height = 13
Caption = 'sec.'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image8: TImage
Left = 80
Top = -2
Width = 70
Height = 59
AutoSize = True
Picture.Data = {<image013.jpg>}
end
object RegBut: TButton
Left = 33
Top = 239
Width = 164
Height = 19
Caption = 'Register!'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = RegButClick
end
object checksmooth: TCheckBox
Left = 40
Top = 131
Width = 121
Height = 17
Caption = 'Auto-hide menu'
Checked = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 1
OnClick = checksmoothClick
end
object CheckBox1: TCheckBox
Left = 40
Top = 150
Width = 121
Height = 17
Caption = 'Smooth meters'
Checked = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 2
OnClick = CheckBox1Click
end
object Button2: TButton
Left = 33
Top = 267
Width = 164
Height = 19
Caption = 'Reset ICB index value'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button2Click
end
object Button12: TButton
Left = 206
Top = 0
Width = 21
Height = 17
Caption = '>>'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = Button8Click
end
object Interval_edit: TEdit
Left = 124
Top = 197
Width = 33
Height = 21
AutoSize = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
Text = '5'
end
end
object TabSheet9: TTabSheet
Caption = 'Pro'
ImageIndex = 8
object Label33: TLabel
Left = 61
Top = 55
Width = 113
Height = 13
Caption = 'Pro version settings'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Image22: TImage
Left = 201
Top = -1
Width = 29
Height = 448
OnMouseMove = Image12MouseMove
end
object Label35: TLabel
Left = 185
Top = 139
Width = 16
Height = 13
Caption = 'MB'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label34: TLabel
Left = 18
Top = 238
Width = 192
Height = 16
Caption = 'PRO version not registered!'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel8: TBevel
Left = 15
Top = 80
Width = 9
Height = 123
Shape = bsLeftLine
end
object Image9: TImage
Left = 80
Top = -2
Width = 70
Height = 59
AutoSize = True
Picture.Data = {<image014.jpg>}
end
object Button17: TButton
Left = 206
Top = 0
Width = 21
Height = 17
Caption = '>>'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button8Click
end
object check_writelog: TCheckBox
Left = 22
Top = 96
Width = 97
Height = 17
Caption = 'Enable logging'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = check_writelogClick
end
object Button3: TButton
Left = 120
Top = 80
Width = 67
Height = 19
Caption = 'Show Log'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button3Click
end
object CHeckTrayHide: TCheckBox
Left = 22
Top = 167
Width = 164
Height = 17
Caption = 'Hide in Windows System Tray'
Checked = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 4
OnClick = CHeckTrayHideClick
end
object check_logwarn: TCheckBox
Left = 22
Top = 137
Width = 129
Height = 17
Caption = 'Warn if log exceeds'
Checked = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 5
end
object maxlogsize: TEdit
Left = 150
Top = 136
Width = 33
Height = 21
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
Text = '5'
end
object Memo5: TMemo
Left = 8
Top = 282
Width = 218
Height = 87
BorderStyle = bsNone
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
' Additional '#39'Pro'#39' options include:'
''
'- Continuous monitoring of up to 256 servers'
'- Programmable alarm if a server goes down '
'- 10-user and Site licenses available')
ParentFont = False
TabOrder = 7
end
object ProPanel: TPanel
Left = -2
Top = 184
Width = 217
Height = 282
BevelOuter = bvNone
Color = clWhite
Enabled = False
TabOrder = 1
Visible = False
object Bevel7: TBevel
Left = 17
Top = -8
Width = 9
Height = 284
Shape = bsLeftLine
end
object check_server: TCheckBox
Left = 24
Top = 10
Width = 186
Height = 17
Caption = 'Enable continuous monitoring'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = check_serverClick
end
object checkserverpanel: TPanel
Left = 22
Top = 30
Width = 197
Height = 241
BevelOuter = bvNone
Color = clWhite
TabOrder = 1
Visible = False
object Label37: TLabel
Left = 5
Top = 143
Width = 169
Height = 13
Caption = 'execute the following program or file'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label38: TLabel
Left = 6
Top = 158
Width = 79
Height = 13
Caption = 'if server is down:'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label39: TLabel
Left = 2
Top = 189
Width = 187
Height = 13
Caption = '(Any file with a Windows file association'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label40: TLabel
Left = 3
Top = 202
Width = 178
Height = 13
Caption = 'will execute it'#39's associated application'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label41: TLabel
Left = 3
Top = 215
Width = 185
Height = 13
Caption = 'so you can select a sound, a CGI URL '
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label44: TLabel
Left = 3
Top = 228
Width = 117
Height = 13
Caption = 'or a mailto: URL as well!)'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image24: TImage
Left = 183
Top = -248
Width = 26
Height = 448
OnMouseMove = Image12MouseMove
end
object Button19: TButton
Left = 90
Top = 159
Width = 46
Height = 18
Caption = 'Browse'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = Button19Click
end
object Button16: TButton
Left = 4
Top = 112
Width = 80
Height = 22
Caption = 'Add server'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button16Click
end
object Button18: TButton
Left = 114
Top = 112
Width = 80
Height = 22
Caption = 'Remove server'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button18Click
end
object CheckServerIP: TListBox
Left = 2
Top = 2
Width = 161
Height = 104
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
Sorted = True
TabOrder = 3
end
object monitorstatus: TListBox
Left = 161
Top = 2
Width = 33
Height = 105
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 4
end
object Button20: TButton
Left = 148
Top = 159
Width = 46
Height = 18
Caption = 'Clear'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = Button20Click
end
end
end
object Button7: TButton
Left = 120
Top = 105
Width = 67
Height = 19
Caption = 'Clear Log'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = Button7Click
end
end
object TabSheet6: TTabSheet
Caption = 'Help'
ImageIndex = 5
object Label12: TLabel
Left = 80
Top = 57
Width = 75
Height = 13
Caption = 'On-Line Help'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 16
Top = 344
Width = 197
Height = 13
Caption = '(you need to be connected to the Internet'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image17: TImage
Left = 205
Top = -1
Width = 29
Height = 448
OnMouseMove = Image12MouseMove
end
object Label21: TLabel
Left = 18
Top = 356
Width = 187
Height = 13
Caption = 'and a WWW browser must be installed,'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 18
Top = 369
Width = 137
Height = 13
Caption = 'set to be the default browser)'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel4: TBevel
Left = 25
Top = 112
Width = 9
Height = 209
Shape = bsLeftLine
end
object Image10: TImage
Left = 80
Top = -2
Width = 70
Height = 59
AutoSize = True
Picture.Data = {<image015.jpg>}
end
object BitBtn4: TBitBtn
Left = 37
Top = 163
Width = 75
Height = 25
Caption = 'FAQ'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BitBtn4Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
333333333777733333333333FBFBFB3333333333333333333333}
NumGlyphs = 2
end
object BitBtn5: TBitBtn
Left = 37
Top = 203
Width = 75
Height = 25
Caption = 'Home'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444
5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4
335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4
C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4
CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C
C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333
CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC
5555555775FFFF77555555555C4CCC5555555555577777555555}
NumGlyphs = 2
end
object BitBtn6: TBitBtn
Left = 37
Top = 243
Width = 75
Height = 25
Caption = 'ICB'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BitBtn6Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object BitBtn7: TBitBtn
Left = 37
Top = 283
Width = 75
Height = 25
Caption = 'E-Mail'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = BitBtn7Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000
000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F
FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF
9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000
0000777777777777777733333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn8: TBitBtn
Left = 37
Top = 123
Width = 75
Height = 25
Caption = 'Helpdesk'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BitBtn8Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
3333333773FFFF77333333333FBFBF3333333333377777333333}
NumGlyphs = 2
end
object Button13: TButton
Left = 206
Top = 0
Width = 21
Height = 17
Caption = '>>'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button8Click
end
end
object TabSheet7: TTabSheet
Caption = 'About'
ImageIndex = 6
object Image18: TImage
Left = 205
Top = -1
Width = 26
Height = 448
OnMouseMove = Image12MouseMove
end
object Bevel5: TBevel
Left = 9
Top = 99
Width = 9
Height = 267
Shape = bsLeftLine
end
object versionlabel: TLabel
Left = 2
Top = 451
Width = 225
Height = 16
Alignment = taCenter
AutoSize = False
Caption = 'ICB Version:'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image1: TImage
Left = 80
Top = -2
Width = 70
Height = 59
AutoSize = True
Picture.Data = {<image016.jpg>}
end
object Memo1: TMemo
Left = 17
Top = 107
Width = 206
Height = 323
BorderStyle = bsNone
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Lines.Strings = (
'ICB 3.0 - (C) 1998, 1999 '
'Byzantine Internet Software Solutions'
''
''
'Written in Delphi 4.0 by:'
'- Martin Beek'
'- Menachem Raviv'
''
''
'Delphi Components:'
'- UI, graphics, counters by Martin Beek'
'- ICMP protocol implementation and '
' WWW Server CGI by Menachem Raviv'
'- Telnet Server courtesy of Francois Piette'
'- Parts of Compass courtesy of Andreas Faltinek'
'- Digital displays courtesy of Jan Goyvaerts'
''
''
'ICB is marketed in the US by Cagi and Regnow,'
'in Europe by AVA Techniek.'
''
''
'Visit the ICB website for more information.')
ParentFont = False
TabOrder = 0
end
object Button14: TButton
Left = 206
Top = 0
Width = 21
Height = 17
Caption = '>>'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button8Click
end
end
object TabSheet8: TTabSheet
Caption = 'Quit'
ImageIndex = 7
object Label14: TLabel
Left = 12
Top = 61
Width = 205
Height = 24
Caption = 'Thank you for using ICB!'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image19: TImage
Left = 205
Top = -1
Width = 28
Height = 448
OnMouseMove = Image12MouseMove
end
object Image20: TImage
Left = 25
Top = 103
Width = 180
Height = 220
Hint = 'BSD: Big Software Dude (MB)'
AutoSize = True
ParentShowHint = False
Picture.Data = {<image017.jpg>}
ShowHint = True
end
object Label23: TLabel
Left = 1
Top = 323
Width = 225
Height = 13
Caption = '"My advise: Don'#39't copy this software!"'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Image11: TImage
Left = 80
Top = -2
Width = 70
Height = 59
AutoSize = True
Picture.Data = {<image018.jpg>}
end
object BitBtn3: TBitBtn
Left = 77
Top = 391
Width = 75
Height = 25
Caption = 'Quit'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF3333993333339993333377FF3333377FF3399993333339
993337777FF3333377F3393999333333993337F777FF333337FF993399933333
399377F3777FF333377F993339993333399377F33777FF33377F993333999333
399377F333777FF3377F993333399933399377F3333777FF377F993333339993
399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
99333773FF3333777733339993333339933333773FFFFFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
object Button15: TButton
Left = 206
Top = 0
Width = 21
Height = 17
Caption = '>>'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button8Click
end
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 481
Width = 255
Height = 19
Hint = 'Actual Status'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
Panels = <
item
Width = 50
end>
ParentShowHint = False
ShowHint = True
SimplePanel = False
UseSystemFont = False
end
object Ping1: TPing
Size = 3000
Timeout = 10000
TTL = 255
OnDisplay = Ping1Display
OnEchoReply = Ping1EchoReply
OnDnsLookupDone = Ping1DnsLookupDone
Left = 328
Top = 311
end
object interval: TTimer
Enabled = False
Interval = 5000
OnTimer = intervalTimer
Left = 359
Top = 372
end
object Ping2: TPing
Size = 3000
Timeout = 3000
TTL = 255
Left = 368
Top = 312
end
object minitimer: TTimer
Enabled = False
Interval = 5000
OnTimer = minitimerTimer
Left = 321
Top = 375
end
object HideMenu: TTimer
Interval = 3000
OnTimer = HideMenuTimer
Left = 372
Top = 214
end
object Ping3: TPing
Size = 32
Timeout = 5000
TTL = 255
Left = 368
Top = 312
end
object CoolTrayIcon1: TCoolTrayIcon
CycleInterval = 0
Enabled = False
Hint = 'ICB - Internet Connection Benchmark 3.0'
ShowHint = True
Icon.Data = {<image019.ico>}
PopupMenu = PopupMenu1
Left = 337
Top = 206
end
object PopupMenu1: TPopupMenu
Alignment = paRight
Left = 297
Top = 206
object Close1: TMenuItem
Caption = '&Analyse'
Default = True
OnClick = Close1Click
end
object Connection1: TMenuItem
Caption = '&Connection'
OnClick = Connection1Click
end
object Check1: TMenuItem
Caption = 'C&heck'
OnClick = Check1Click
end
object Remote1: TMenuItem
Caption = '&Remote'
OnClick = Remote1Click
end
object System1: TMenuItem
Caption = '&System'
OnClick = System1Click
end
object Pro1: TMenuItem
Caption = '&Pro'
OnClick = Pro1Click
end
object Help1: TMenuItem
Caption = '&Help'
OnClick = Help1Click
end
object About1: TMenuItem
Caption = '&About'
OnClick = About1Click
end
object Quit1: TMenuItem
Caption = '&Quit'
OnClick = Quit1Click
end
end
object CheckserverTimer: TTimer
Enabled = False
Interval = 30000
OnTimer = CheckserverTimerTimer
Left = 342
Top = 423
end
object serverexec: TOpenDialog
Options = [ofHideReadOnly, ofNoValidate, ofEnableSizing]
Left = 377
Top = 422
end
end